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ABSTRACT 


This  paper  presents  a  functional  overview  of  the  features  and 
capabilities  of  OLISP,  one  of  the  newest  of  the  current  aeneration  of 
very  hiph  level  languages  developed  for  use  in  artificial 
intelligence  (AI)  research, 

OLISP  is  both  a  programming  language  and  an  interactive 
programming  environment,  Tt  embeds  an  extended  version  of  QA4,  an 
earlier  AT  language,  in  INTERLISP,  a  widely  available  version  of  LISP 
with  a  variety  of  sophisticated  programming  aids. 

The  language  features  provided  by  QLISP  Include  a  variety  of 
useful  data  types,  an  associative  data  base  for  the  storage  and 
retrieval  of  expressions,  the  ability  to  associate  property  lists 
with  arbitrary  exnressions,  a  powerful  pattern  matcher  based  on  a 
unification  algoritnm,  pattern-directed  function  invocation#  "teams” 
of  pattern  invoked  functions,  a  sophisticated  mechanism  for  breaking 
a  data  base  into  contexts,  generators  for  associative  data  retrieval# 
and  easy  extensibility. 

System  features  available  In  QLTSP  Include  a  very  smooth 
interaction  with  the  underlying  INTERLISP  lang'iaae#  a  facility  for 
aggregating  multiple  pattern  matches,  and  features  for  interactive 
control  of  programs, 

A  number  of  the  iniplemented  applications  of  QLISP  are  briefly 
discussed,  and  some  directions  for  future  development  are  presented. 


I 


INTRODUCTION 


An  important  byproduct  of  research  in  artificial  intelligence 
(AI)  has  been  the  development  of  programming  languages  that  permit 
glvina  instructions  at  a  very  high  level  to  a  computer,  A  second 
important  byproduct  has  been  the  development  of  highly  sophisticated, 
supportive  interactive  programming  environments.  Tools  of  this  kind 
arp  Very  important  for  developing  AI  programs,  which  tend  to  be 
large,  complex,  anti  subject  to  frequent  alteration,  we  believe  that, 
as  the  needs  of  the  computing  community  grow,  and  the  computation 
speed  of  hardware  improves,  the  programming  tools  that  have  been  a 
necessity  to  AI  will  oecome  important  tools  of  general  applicability. 

This  paper  presents  a  functional  overview  of  the  capabilities 
and  features  of  QLISP,  one  of  the  newest  of  the  current  generation  Of 
Very  hidh  level  AI  languages  that  includes  MICROPLANNER  [i], 
SAIL  [21,  chnniveR  [3j,  POPLEP  [4],  and  others.  Thus,  it  will  serve 
both  to  introduce  tpe  language  to  the  computing  community  and  to 
briefly  review  the  features  available  in  the  new  generation  of  AI 
languages.  A  more  extensive  treatment  of  QLISP  is  available 
elsewhetefSJ, 

QfilSP  is  both  a  programming  language  and  an  interactive 
programming  environment.  It  grew  out  of  the  QA4  language  t6]  that 
was  developed  at  sbl  from  1969  to  1972.  Many  of  the  basic  concepts 
of  the  language  are  derived  from  tne  QA4  work.  QLISP  embeds  an 
extended  version  of  QA4  In  INiERLlSP  [7],  a  widely  available  version 
of  LISP  with  a  variety  of  sophisticated  programming  aids.  In 
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addition,  it  orovides  many  new  features  not  present  In  other 
languaces. 

In  the  following  section,  we  will  describe  the  language  features 
of  QLisP,  with  special  emphasis  on  those  not  available  in  other 
languaaes,  [Bobrow  and  Raphael  (8)  give  a  comparative  description  of 
a  number  of  these  languages.]  Then  we  shall  describe  the  programming 
environment  provided  by  QLISP  and  the  underlying  INTERLISP,  Finally, 
we  shall  give  some  examples  of  the  ways  in  which  the  language  has 
been  used  to  create  complex  software  systems, 

II  language  features 

This  section  win  discuss  the  more  notable  features  of  the  QLISP 
language.  Most  of  these  are  derived  from  features  present  in  Qa4« 
Some  are  aerived  from  other  languages.  Most  have  been  extended  for 
greater  ease  of  use,  compatibility  with  the  underlying  INTEBLISP 
lanouage,  or  Increased  generality, 

A,  Data  Tyoes 

QLISP  provides  a  very  rich  set  of  data  types  and  facilities 
for  manipulating  them.  In  addition  to  the  range  of  types  provided  by 
INTERl.jSP  (including  numbers,  arrays,  strings,  and  list  and  binary 
tree  structures),  OLISP  provides  data  of  type  tupie,  vector,  bag,  and 
class. 

A  tuple  is  similar  to  a  LISP  list,  but  can  be  accessed  via 
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associative  retrieval  as  diescribed  in  Section  II-B  below,  A  vector 
Is  like  a  tuple,  tut  is  treated  somewhat  differently  when  evaluated, 

A  baq  Is  a  multiset,  an  unordered  collection  of  elements 
that  may  te  duplicated.  For  example,  (BAG  A  A  B  c)  is  equivalent  to 
(BAG  A  c  B  A)  but  IS  different  from  (BAG  a  B  C).  Bags  ate 
particularly  useful  for  describing  the  argument  lists  of  associative 
commutative  relations.  For  example,  if  we  defined  the  relation  PLUS 
to  take  a  baa  as  its  araument,  then  the  expressions  (PLUS  A  A  B  C) 
and  (PLUS  AC  PA)  (which  would  both  be  stored  internally  as  (PLUS 
(BAG  A  ABC  )))  would  be  equivalent  by  definition, 

A  class  is  an  unordered  collection  of  elements,  without 
duplication.  For  example,  (CLASS  A  A  B  C)  is  equivalent  to  (CLASS  C 
BA). 

B.  Associative  Data  Base 

Expressions  composed  of  any  of  the  data  types  mentioned 
above  may  be  placed  in  a  data  base.  The  data  base  is  designed  for 
as.s.aciaLi:ift  teJitiaitai ,  the  fetching  of  data  by  content  rather  than  by 
name  or  address,  A  request  for  an  item  of  data  may  specify  values 
for  any  of  its  constituent  elements,  leaving  the  rest  to  be  matched 
by  the  values  in  the  retrieved  item.  The  data  base  is  maintained  In 
the  form  of  a  discrimination  net,  a  tree-like  structure  in  which  the 
nodes  represent  tests  to  apply  to  an  expression,  and  the  branches 
represent  the  values  returned  by  the  tests.  In  general,  these  tests 
are  set  up  to  find  the  first  difference,  scanning  left  to  right, 
between  two  expressions. 
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C,  Canonical  RePreSentat ion  of  Expressions 

By  storinq  all  data  in  a  common  discrimination  netf  QLISP 
can  represent  equivalent  expressions  uniquely,  in  the  QLISP  net, 
oniv  one  instance  of  an  expression  may  occur.  Before  an  expression 
is  entered  Into  the  net,  it  Is  transformed  into  a  canonical  form,  A 
new  datum  viii  not  ne  created  if  the  expression  already  occurs  in  the 
net.  Thus,  continuinq  our  example  about  the  PLUS  relation,  (PLUS  A  A 
B  C)  and  (Ft, US  A  C  B  A)  are  not  only  equivalent;  they  are  exactly  the 
samepoipterlntotnedatabase, 

u.  Property  Lists 

Arbitrarv  expressions  are  represented  uniquely  in  QLISP, 
lust  as  atoms  are  represented  uniquely  in  LiSp,  Therefore  it  is 
possible  to  assign  properties  to  QLISP  expressions  in  the  same  way  as 
LISP  atoms.  For  instance,  we  may  execute  the  command 

(OPUT  (PLUS  A  B  (MINUS  A))  SIMPLIFIESTO  B), 
which  will  put  the  value  B  under  the  Indicator  SIMPLIFIESTO  in  the 
property  list  of  the  expression  (PLUS  A  B  (MINUS  A)l,  If  this 
expression,  or  any  equivalent  expression  (such  as  (PLUS  B  (MINUS  A) 
All,  is  ever  encountered  again,  we  can  look  on  its  property  list  and 
find  a  simpli f Ication  tor  it. 

One  particular  indicator  on  the  property  lists  of 
expressions  is  used  to  represent  truth  value.  when  this  indicator, 
model VALUE ,  has  a  value  T,  the  system  interprets  that  expression  to 
be  "true."  Similarly,  a  value  of  NIL  represents  a  "false" 
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expression.  Special  statements  exist  for  manipulating  this 
particular  oropertv.  For  example,  the  statement 

(ASSERT  (AT  SRI  MENLO-PARK)) 

would  simplv  Place  the  attribute-value  pair  (WoDELVALUE  T)  on  the 
property  list  of  the  tuple  (AT  SRI  MENLO-PARK) .*  The  semantics  of  the 
stateiT^ent  is  that  .SFl  is  in  Menlo  Park,  Similarly,  the  statement 

(IS  (AT  «-THING  MENLO-PARK)) 

would  cause  a  Search  of  the  data  base  for  something  that  was  known 
(i,e,  was  in  the  data  base  with  MQDELVALUE  equal  to  T)  to  be  in 
Menlo  Park, 

E.  The  Unification  Pattern  Matcher 

An  important  activity  in  AX  programs  is  the  construction, 
modification,  and  analysis  of  complex  symbolic  expressions.  The  most 
powerful  tool  for  this  is  a  matchax,  an  algorithm  that  allows 
one  expression  to  be  used  as  a  template  to  break  up  another 
expression  into  components.  QLISP  extends  this  facility  by  providing 
a  uoXi-icatixia  pattern  matcher  in  which  each  of  tw©  expressions  may 
act  as  templates  for  th^  other. 

Some  examples  at  this  point  are  appropriate.  The  QLISP 
statement  matcHQQ  Invokes  the  pattern  matcher  directly.  The 
statement 

(MATCHOO  (<s-X  <!'Y)  (A  6)  ) 

*  This  naner  win  avoid  almost  all  need  for  the  reader  to  cope  with 
QLiSF-sPeci f ic  syntax.  It  suffices  to  say  that  in  QLISP  statements, 
the  elements  of  expressions  are  presumed  to  be  constants  unless 
identified  as  a  variable  by  the  prefix  or  $,  The  4-  prefix 
indicates  that  the  variable  is  to  be  assigned  a  new  value;  the  $ 
prefix  indicates  the  previous  value  of  the  variable. 
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The  statement 


will  match  X  to  A  and  Y  to  B. 

(MATCHQO  C«-X  CA  ) 

will  fsil»  since  X  cannot  be  hound  simultaneously  to  A  and  B,  The 
statement 

CMATCHQQ  (A  -►X)  (4-Y  B)  ) 

will  match  X  to  B  and  Y  to  A.  The  Statement 

(MATCHQQ  fA  (P  -f-X)  -eV )  (♦X  ♦Z  (A  (B  C)))) 

Will  match  X  to  A,  V  to  (A  (B  O),  and  Z  to  (B  A), 

The  oi.,iS!-‘  pattern  matcher  ts  based  on  an  extended 
unification  alaorithm  that  can  deal  with  the  variety  of  data  types 
available  in  the  lanauaqe.  The  matcher  is  not  complete  for  complex 
exoressions  contai, riina  baas  and  classes.  However,  it  is  adequate  for 
the  kinds  of  expressions  that  are  almost  always  used.  Pattern 
matchlnq  is  used  In  OLKSP  tor  several  central  purposes.  It  is  used 
to  bind  variables  and  decompose  expressions,  as  we  have  mentioned. 
It  is  used  to  control  associative  retrieval.  It  is  also  used  to 
invoice  functions  for  specified  purposes,  aS  we  win  now  show, 

f.  Pattern-Directed  Function  Invocation 

Many  of  the  A1  lanquaqes  provide  a  feature,  first  proposed 
by  Hewjtt  19],  whereby  functions  can  be  invoiced  not  only  by  naminq 
them,  hut  also  by  checking  to  see  if  they  are  appropriate  for  a  qiven 
argument.  This  check  is  performed  by  matchlnq  a  pattern  associated 
with  each  function  with,  the  given  argument.  For  example,  we  might 
write  some  functions  such  as  the  following  for  an  algebraic 


6 


Simplifier;* 


PLUSSl.MGLF:  (GLAMBDA  (PLUS  ♦Xi  $X) 

PLUSZFRO:  (GLAM8DA  (PLUS  0  <*-♦  )  ('(PLUS  $$X))) 

PLUSMTNUS;  (QLAMBDA  (PLUS^X  (MINUS  <».X)  ('(PLUS  $$7))) 

The  PLUSSiNGLfc  function  says;  given  an  argument  of  the  form 
PLUS  followed  by  any  single  element»  return  that  single  element.  The 
PLUSZEpn  function  says;  given  an  argument  of  the  form  PLUS  followed 
by  any  number  of  elements,  one  of  which  is  0,  return  the  form  PLUS 
followed  by  all  the  other  eie-nents  of  the  argument. 

At  the  user's  option,  if  a  function's  Pattern  can  match  an 
argument  in  more  than  one  way,  all  possible  matches  may  be  attempted 
in  turn.  When  one  match  leads  to  a  failurSf  an  alternative  match  is 
attempted.  The  function  itself  win  not  fail  until  all  possible 
matches  have  been  tried.  For  example,  the  following  program  will 
find  two  friends  of  JOf  who  ere  father  and  son; 

(QLAMBDA  (FRIFhhs  JOE  (CLASS  «-F  .J-S  ♦♦•REST)  ) 

(IS  (FATHER  $S  SF)) 

BACKTRACK) 

The  proaram  win  cycle  through  all  pairs  of  elements  from 
the  class  of  JOF's  friends  and  see  if  one  is  the  father  of  the  other. 


*  The  doubled  prefixes  (e.g.  $$)  indicate  that  the  variable  refers 
to  a  traoment  of  the  expression  containing  it  rather  than  a  single 
element.  The  quote  mark  (')  indicates  that  the  following  expression 
is  to  be  instantiated  (following  the  semantics  of  OLTSP)  rather  than 
evaluated  (following  the  semantics  of  LISP), 
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G,  Teams  of  Functions 

Fonctions  to  be  invoiced  by  pattern  are  typically  Intended 
for  application  toward  a  specified  ourpose.  Some  functions  are  to  be 
used  for  consequent  reasoninq;  when  a  particular  consequence  or  goal 
(charact er ized  by  the  function's  pattern)  is  desired#  Invoke  this 
function  to  achieve  it.  Some  functions  are  to  be  used  for  antecedent 
reasonino:  when  a  particular  antecedent  condition  (e.g,  an  assertion 
in  the  data  base)  char act er ized  by  the  function's  pattern  occurs# 
invoke  this  function  to  cause  further  effects  on  the  data  base. 

Typically  in  lanaauoes  that  use  pattern-directed  function 
invocation#  many  of  the  consequent  functions  are  tried  when  a  goal  is 
to  be  achieved,  and  all  the  antecedent  functions  are  tried  when  the 
data  base  is  updated.  Only  the  ones  that  have  a  pattern  that  matches 
the  aoai  or  assertion  will  actually  be  invoked,  but  a  great  deal  of 
overhead  must  be  expended  to  attempt  to  match  the  patterns  of  all 
functions. 

This  practice  is  Inefficient  since  many  functions  may 
already  be  known  to  be  inappropriate#  and  yet  their  patterns  will  all 
be  checked.  OLlSP  provides  a  feature  whereby#  with  each  of  many 
kinds  of  statements  that  can  Invoke  functions  by  pattern#  a  So-called 
Lftaa  of  functions  can  be  specified  from  which  aopucable  ones  may  be 
drawn.  So#  In  our  simplification  example#  we  could  cause  one 
simplification  to  occur  with  a  statement  that  calls  for  consequent 
reasoning: 

fCASFS  (PLUS  A  4  (MINUS  A))) 

APPLY  (PLUSSINGLE  PLUSZERO  PLUSMINUS  ...  ))  . 
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The  list  after  the  keyword  APPLY  Is  the  team  of  functions 
associated  with  the  particular  CASES  statement.  The  system  will 
attempt  to  match  the  oatterns  of  only  these  functions  with  the 
particular  PLUS  expression. 

Similarly,  a  team  of  functions  may  be  specified  with  any 
ASSERT,  DENY,  DELETE,  or  QPUT  Statement  to  perform  antecedent-type 
activities.  For  example,  in  a  computer  system  modeiilnd  the 
operation  of  a  ilprary»  a  team  of  functions  might  be  associated  with 
assertions  that  modelled  a  book  being  checked  out.  These  functions 
might  assert  that  the  book  was  due  three  weeks  from  the  current  date, 
update  a  count  of  books  in  circulation,  or  even  cause  the  orldinal 
assertion  to  fall  and  appropriate  other  action  to  be  modelled  if  the 
person  checkino  out  the  book  had  overdue  books  outstanding.  This 
activitv  could  be  initiated  by  a  OLTSP  statement  of  the  form: 

( ASSE^HT  (CHFCKEDOUT  (The  OdysseV)  James. Joyce  (4  JAN  1918)) 

APPLY  $LIBRAPYFNS) 

Where  $I IBRARYFNS  was  bound  to  the  list  of  relevant  antecedent 
functions. 

h.  Contexts 

The  previous  discussion  has  presumed  that  all  expressions 
were  stored  in  a  sinale,  monolithic  data  base.  In  fact,  the  data 
base  is  factored  into  different  segments,  called  coatuaxts ,  Contexts 
may  be  thouciht  of  as  corresponding  to  the  block  structure  of  ALGOL- 
like  lanauages,  whenever  a  Qlambda  function  or  a  user-defined  block 
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Is  entered,  the  current  context  Is  set  to  be  deseendent  of  the 
previous  context.  Variable  blndlnas  and  assignment  of  properties 
(Including,  ^n  oarticuiar,  truth  values)  to  expressions  that  are 
local  to  a  context  are  perceivable  only  from  that  context  or  some 
deseendent.  Thus,  contexts  may  be  regarded  as  particular  viewpoints 
of  the  data  base. 

In  addition  to  a  default  structuring  of  contexts  based  on 
the  structure  of  the  flow  of  program  control,  QLISP  provides 
facilities  for  manipulating  contexts  explicitly.  For  example,  to 
prove  a  proposition  of  the  form: 

(P  or  0)  implies  R, 

one  could  set  up  two  parallel  contexts  with  P  true  in  one  and  Q  true 
in  the  other,  and  try  to  prove  R  in  both  contexts,  as  suggested  in 
Figure  1 ,  - 

CURRENT 

CONTEXT 


DESCENDENT 
CONTEXT 

(ASSERT  P)  (ASSERT  Q) 

(GOAL  R)  (GOAL  R) 


TA-740522-108 

FIGURE  1  USING  CONTEXTS  TO  PROVE  A  DISJUNCTION 


Contexts  are  actually  constructed  from  more  elementary 
entitles,  which  we  shall  call  caatags.,  for  want  of  a  better  term. 
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Contaqsr  which  are  similar  to  the  "situation  tags"  of  PLASMA  ClOl/ 
corresponri  to  particular  points  in  titpe  in  the  evaluation  of  a 
proorarr  (tYPlcsliy  when  QLAMBDAs  or  blocks  are  entered),  A  context 
is  an  ordered  list  of  contags,  typically  corresponding  to  the  stack 
of  active  function  and  block  invocations.  For  users  with 
sophisticated  needs  for  data  base  manipulation,  we  have  provided  a 
set  of  QLisp  statements  that  permit  them  to  construct  their  own 
contexts,  or  viewpoints  of  the  data  base,  from  the  underlying 
contaas.  These  statements  allow  the  creation  of  a  context  that  Is  a 
descendent  of  a  number  of  Independent  contexts,  a  context  that  is  the 
subset  of  a  given  context  not  retrievable  from  a  second  context,  and 
a  context  that  revises  a  given  context  to  aPPeat  as  It  it  were  a 
descencant  of  another  arbitrary  context, 

1 .  Generators 

The  data  retrieval  statements  of  QLISP  are  designed  to  find 
a  single  Instance  of  a  given  pattern.  To  cause  the  pattern  matcher 
to  continue  its  search  and  obtain  other  such  instances,  a  user's 
program  must  return  to  the  query  statement  via  the  backtracking 
mechanism  (i.e.  oy  failing). 

To  allow  a  more  natural  and  inexpensive  method  of 
retrieving  multiple  instances  of  a  pattern,  we  have  extended  the 
CONNIVfp  [3]  aporoach  of  using  ganai:a.t.ox&.  For  example,  the  IS 
statement  that  was  introduced  In  section  II-C  specifies  the  retrieval 
of  one  instance  of  a  given  oattern.  There  is  a  generator  version  of 
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the  IS  statement  called  GEN;ls  that  finds  multiple  true  Instances  of 
a  aiven  pattern,  Each  time  a  statement  such  as  Gen;IS  is  called#  it 
produces  a  number  of  instances  matching  the  pattern.  These 
expressions  are  put  on  a  "possibilities  list"  along  with  a  "tag"  that 
Indicates  how  the  generator  can  be  restarted  when  more  instances  are 
requested,  and  this  possibilities  list  is  returned  by  the  generator 
as  its  value. 

If  the  function  TRY:NEXT  is  called  with  a  possibilities 
list  as  an  argument,  it  win  remove  the  first  Instance  from  the  list 
and  return  it  as  its  value.  If  the  list  contains  no  more  instances# 
the  tao  is  used  to  restart  the  generator.  Since  calls  to  TRYrNEXT 
can  be  made  from  anywhere  In  a  program,  this  form  of  generator 
separates  the  retrieval  of  data  elements  from  the  processing  that  is 
done  on  them  in  a  wav  that  is  not  possible  in  a  strict  backtracking 
regimen. 

The  generator  retrieval  statements  are  implemented  using 
INTERI.ISP  FUhABGs.  A  FUNaPG  is  a  data  Object  that  conceptually 
represents  a  copy  of  a  function  together  with  that  copy's  private 
data  environment, 

J .  Extens ibl 1 i ty 

OLISF  statements  that  are  not  oart  of  the  underlying 
INTERLISP  language  are  processed  by  the  INTERlISP  error  handling 
mechanism,  as  will  be  explained  below.  User-oriented  tools  for 
accessing  the  LISP  translation  mechanism  are  Provided  so  that  new 


QLISP-iike  statements  can  be  defined  easily.  Once  the  statements 
have  been  deflnedf  they  are  treated  by  the  Interpreter  and  compiler 
exactly  like  other  QLISP  statements.  Typically,  the  extension 
facility  has  been  used  to  provide  alternative  control  structures  for 
Invoklnd  the  standard  QLISp  statements,  or  to  provide  special  syntax 
for  user-deflned  QLAMbDA  functions, 

III  SYSTFM  FFATUPFS 

QLISP  is  more  than  just  a  programminq  language;  it  is  an 
Interactive  oroorammlng  environment  for  the  development  of  very 

complex  collections  of  software.  In  this  section  we  shall  discuss 

u 

the  major  features  of  this  environment  that  are  unique  to  QLISP, 

A.  Inteoration  with  INterlisp 

The  major  advantaae  of  QLISP  as  a  programming  environment, 
as  comoared  with  other  new  AI  languages,  is  Its  ease  of  use.  It  is 
easier  to  edit  functions,  create  symbolic  files,  trace  execution 
paths,  break  into  computation  paths,  and  debug  programs  in  QLISP, 
This  is  primarily  due  to  the  choice  of  INTERLISP  as  the  host  language 
for  QLISP,  and  the  care  that  has  been  taken  In  the  implementation  of 
QLISP  to  preserve  the  many  supportive  features  of  INTEPLISP, 

QLISP  Is  implemented  through  the  error  handling  mechanism 
of  INTEP.l^TSP.  A  valid  LISP  expression  will  never  be  seen  by  the 
QLISP  processor.  Thus,  programs  or  portions  of  programs  that  use 
only  LISP  constructs  wm  run  as  fast  m  QLISP  as  in  INTERLISP, 
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When  the  livTERLISP  interpreter  encounters  an  Ill-formed 
LISP  expression,  it  calls  an  error  routine  that  in  turn  invokes  an 
error  analyzer.  If  the  expression  is  recognized  as  a  valid  OLISP 
form,  it  is  translated  to  an  equivalent  LISP  form  that  is  returned  to 
the  Interpreter  for  evaluation.  The  translation  is  stored  with  the 
orlainal  expression  so  that  the  translation  need  be  done  only  once. 

A  similar  mechanism  causes  QUSP  code  to  be  translated  into 
equivalent  LISP  cooe  when  it  occurs  within  a  function  being  compiled. 
Since  the  translation  occurs  at  compilation  time»  the  QLISP 
interpreter  need  never  oe  invoked  at  all  when  running  compiled  QLISP 
code. 

B,  Agqreoation  of  Pattern  Matches 

The  "apply  team"  mechanism  provides  a  good  means  of 
reducinn  the  number  of  unneeded  pattern  matches  during  pattern- 
directed  function  Invocation,  Howevetf  there  may  still  be  a  lot  of 
wasted  effort  as  the  function  invocation  mechanism  attempts  to  match 
each  pattern  in  turn  to  the  argument.  For  example,  the 
simplification  functions  described  in  Section  II-F  all  begin  with 
PLUS,  They  miaht  eVen  be  seqreaated  into  a  specific  team  of 
functions  to  slmpiity  expressions  beglnlng  with  PLUS,  And  yet  every 
pattern  will  be  '^etched  aqalnst  the  argument,  and  the  matcher  win 
succeed  as  least  as  far  as  matching  up  the  PLUS'S, 

An  option  is  available  to  allow  the  patterns  of  QLAMBDAs  to 
be  aggregated  together  in  a  tree  structure.  For  example,  the  tree 


14 


for  the  simplification  functions  listed  in  Section  II-F  appears  in 
Figure  2,  A  sinale  operation  against  the  tree  can  determine  the  set 
of  all  the  OLAMBDA  functions  that  are  good  candidates  to  successfully 
match  a  given  araument,  (The  tests  that  are  applied  are  cruder  than 
those  applied  by  the  pattern’  matcher  Itself,  so  that  the  set  of 
functions  may  contain  some  whose  patterns  will  not  actually  match 
when  the  matcher  is  invoKed.)  This  set  can  then  be  intersected  with 
the  particular  "aoply  team"  to  determine  which  functions  to  invoke. 


FIGURE  2  PATTERN  SELECTION  TREE  FOR 
SIMPLIFICATION  FUNCTIONS 

rhe  tree  structure  used  tor  this  aggregation  Is  actually 
the  discrimination  net  of  the  associative  data  base.  For  "apply 
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teams"  of  more  fnao  about  fifteen  functions,  this  feature  provides 
significant  efficiencies. 

C.  Interactive  Program  Control 

Since  the  OIjISP  backtracking  mechanism  is  implemented  using 
INTKRLtSP's  error  facility,  there  are  a  number  of  ways  in  which  the 
standard  I iiTPRl-jlsf  interactive  facilities  wm  not  work  properly. 
For  examnie,  the  luTt-.RbiSP  function  tracing  facility  is  implemented 
as  "brpaK  the  computation,  then  Print,  then  Continue."  But  INTERLISP 
errors,  which  are  aenerated  by  QLTSP  to  cause  backtracking,  are 
trapped  at  a  break.  The  solution  we  adopted  to  this  particular 
quandary  was  to  implement  a  QTRACFJ  facility  that  did  not  generate  a 
break  wpen  it  printed  Information  about  a  function  invocation. 
Similar  care  was  taken  with  breaks  in  computation,  the  package  for 
manipuiatino  symbolic  files,  and  many  other  system  components  to 
allow  a  QLISP  user  to  believe  that  the  total  system  was  behaving 
exactly  as  the  underlying  OTERI.isp  would, 

IV  APPLICATIONS 

To  provide  some  perspective  on  tne  utility  of  OLISP,  we  will 
brieflv  describe  so^'.e  of  the  aopilcations  implemented  with  it.  The 
common  char acter 1 s f 1 cs  of  these  applications  are  that  the  programs 
and  the  concepts  underlying  them  could  not  be  specified  without  a 
sustained  cycle  oft 

O  programming  the  best  current  Ideas  about  what  the  program 
s  n  0  u  1  d  D  e  o  o  1  r  a  , 
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?)  observinq  the  proqraiT''s  behavior,  and  then 
3)  modifyinq  or  extendinq  the  Ideas, 

A,  ProqratTi  Verification 

The  first  major  QLISP  program  was  the  proaram  verifier  of 
Waidlnoer  and  Levitt  [11],  The  verifier  was  originally  written  in 
QA4.  The  Droqram  includes  over  100  functions  each  encapsulating  a 
specialized  piece  of  knowledge  about  the  semantics  of  the  language  of 
the  proorairs  belna  verified.  The  QLISP  version  ran  about  30  times 
faster  than  the  orlainal  QA4  program, 

H,  Automatic  Programming 

Subsequent  work  by  Waldlnger  has  used  QLISP  for  the 
generation  of  simple  programs  from  output  specifications.  This  work 
makes  strong  use  of  rtie  unification  feature  of  the  pattern  matcher  to 
combine  the  knowledge  that  is  distributed  in  various  QLAMBDA 
functions.  For  example,  one  function  may  say,  in  effect,  to  produce 
a  list  with  some  x  as  its  CAP,  perform  (CONs  X  something),  where  the 
something  Is  unspecified.  Similarly,  another  function  may  say,  to 
produce  a  list  with  some  X  as  its  COp,  perform  (CUNs  something  X), 
where  the  something  is  again  unspecified.  Therefore,  if  the  system 
were  alven  the  goal  of  producing  a  list  with  A  as  its  CAP  and  B  as 
its  CDR,  the  first  function  would  return  (CONs  A  something),  the 
second  would  return  (CONS  something  B),  and  by  unifying  these 
results,  the  system  could  produce  the  correct  code  (CONS  A  B), 


General  ProMen’i  Solvina 


C. 


A  systeT  develope-i  by  Sacerioti  [12]  Generates  complex 
plans,  monitors  their  execution,  and  recovers  from  unexpected  events 
that  cause  the  execution  to  deviate  from  the  expected  course  of 
action.  This  is  a  3arae  system  (about  60  pages  of  code)  and  almost 
all  Of  it  is  in  the  underlying  INTERLISP  language.  However,  the 
pattern  matching  a’^d  context  mechanisms  of  QLISP  are  central  to  its 
operation,  and  the  ease  with  whlcn  the  renr esentat ion  of  knowledge 
could  he  changed  7.as  important  In  the  system's  development. 

The  semantics  of  the  actions  that  the  system  plans  for  are 
written  in  a  language  extension  of  QLISP  that  has  QLISP's  semantics 
but  is  evaluated  very  differently.  Strong  use  of  the  pattern  matcher 
and  of  the  extension  feature  allowed  the  action  language  to  be 
readily  changed  as  the  scope  of  the  program  increased, 

n.  Deductive  Retrieval 

A  deductive  retrieval  pacxage  was  written  by  Fikes  tl3]  to 
allow  arbitrary  deductions  to  be  fired  off  by  a  QLlSP-like  query.  In 
addition  to  slmDjy  causing  associative  retrieval  from  the  data  base, 
Fikes'  ^merles  can  cause  the  Invocation  of  arbitrary  programs  to 
deduce  the  answer  to  tne  query  from  other  available  information. 
These  ouery  statements,  implemented  as  a  language  extension  of  QLISP, 
make  strong  use  of  the  generator  facility,  capabilities  for 
modeliino  state  changes,  also  part  of  this  Pacxaqe,  make  strong  use 
of  the  ability  to  associate  an  arbitrary  property  list  with  an 
expression. 
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Corrputer  Ai-lerl  Design 


The  general  poroose  program  for  computer  aided  design 
that  uses  AI  techniques  in  a  substantial  way  has  recently  been 
completed.  It  work's  by  generating  a  model  of  the  object  to  be 
designed  in  stages  of  increasing  detail.  As  each  stage  is  generated^ 
appropriate  user-supplied  design  constraints  are  applied.  The  system 
employs  sophisticated  bacictracicing  techniques  to  minimize  the  search 
for  a  object  rhat  satisfies  all  the  constraints.  The  program  in  its 
current  form  ri4j  is  written  completely  in  TNTERLISP,  The 
development  of  the  program  was  carried  out  in  QLISP#  and  the  code  was 
gradually  cut  over  to  pure  If'JTERLT.SP  as  design  Ideas  jelled  and 
execution  speed  became  important.  The  pure  iNleRLISP  version  runs 
about  ten  times  taster  than  the  original  Qi.ISP  Version.  The 
development  of  the  svstem  was  areatlv  facilitated  by  the  early  use  of 
QLiSP  and  the  resulting  ability  to  easily  change  Internal 
representations  and  control  strategies. 


F.  Fconometric  Modelling 

A  svstem  has  been  developed  that  integrates  a  quantitative 
computer  model  with  an  overlay  of  heuristic  judgemental  rules  [15], 
The  heuristic  overlay  is  intended  to  facilitate  interactive  use  of 
the  econometric  model  by  making  It  easy  to  aitet  parameters  and 
adjust  boundary  conditions.  The  underlying  quantitative  model  was 
implemented  in  a  mixture  of  I'lTFRLlSP  and  FQRTRAM.  The  heuristic 
model  was  implemented  in  QLISP  as  an  ASSERT  team,  a  set  of  functions 
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applied  after  an  assertion  has  been  fnade  in  the  model.  The  user 
Interface  was  imoiemented  in  QLISp  because  of  the  ease  of  interaction 
it  provides. 

V  CUPP&d'JT  STaTHS 

QLISP  has  been  in  active  use  at  SRI  for  nearly  two  years.  The 
version  at  SRI  is  I mpiemented  jn  INTERLISP  on  a  PDP-10  computer  usino 
the  TEnPx  operatina  system.  it  is  available  for  use  over  the  ARPAnet 
byotherusersonthenetvork, 

A  version  of  (iLiSP  is  also  available  for  INTERLISP-BTO »  a 
version  of  Tt-iTtRMSP  that  runs  on  IBi'i  360  and  370  series  computers, 

QLISP  js  not  intendeo  to  be  a  Performance  lanquaqe.  The 
proar arr'o i  no  tools  that  it  provides  are  of  general  purpose.  Thus  a 
prooran-  wriiten  in  (ii.fSp  w n i  run  siowiy  compared  to  a  version  of  the 
program  written  In  a  language  that  provides  a  more  restricted  set  of 
data  types  or  less  f 1  ex ib 1 e  control  structures.  But  it  has  been  our 
experience  that,  when  the  proarams  to  be  written  ate  large#  complex, 
and  Subiect  to  frequent  alteration  as  development  proceeds,  then  the 
IneftiGlency  in  the  program's  execution  time  is  more  than  compensated 
for  by  efficiencies  the  orogr  arnme  r '  s  development  time. 

VI  EdRTHE'R  WORK 

w'hile  ULTSP  is  a  useful  tool  for  many  purposes,  further  work: 
will  be  required  to  augment  the  power  of  the  language  to  reflect  the 
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growlna  needs  of  Al  programminq ,  The  current  version  provides  an 
associarive  data  base  that  must  be  entirely  contained  within  the 
program's  core  Imaae.  Systems  that  operate  on  substantial  knowledge 
bases  are  a  focus  of  current  research  interest  in  AI,  and  the  amount 
of  data  that  these  systems  win  use  will  require  that  at  least  part 
of  the  associative  data  base  be  resident  on  secondary  storage.  This 
Will  require  a  new  data  storaqe  and  retrieval  mechanism/  since  those 
of  existing  AI  languages/  including  QLISP,  tend  to  distribute  data 
randomly  throughout  the  store.  The  distribution  of  data  needs  to  be 
at  least  partially  based  on  semantic  criteria/  instead  of  totally  on 
a  syntactic  basis  as  is  done  now. 

Another  inadequacy  of  OLiSP  and  other  Ai  languages  Is  that  the 
pattern  matcher  returns  too  little  information.  Given  two  patterns 
to  niatch/  it  replies  either  with  an  exact  matching  between  the 
patterns  or  with  a  reoort  of  failure.  It  would  often  be  extremely 
useful  to  have  a  measure  of  how  "close”  the  match  was  to  succeeding. 
Obviously,  this  would  be  an  expensive  feature,  but  this  kind  of 
"fuzzy"  matching  would  provide  a  user  with  the  powerful  ability  to 
begin  to  deal  with  expressions  on  a  semantic  basis. 

A  third  area  for  further  development  is  in  the  aeneral  category 
of  multiprocessing,  While  many  languages  support  the  use  of  multiple 
interdependent  processes,  the  level  of  command  that  they  provide  is 
typica] ly  quite  low.  Typically  they  are  on  the  level  of  "start 
process,"  "suspend  Process,"  and  "watt  on  semaphore."  It  would  be 
very  useful  to  have  higher  level  commands  available  that  would  allow 
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the  lr<n'5oaqe  systerr  itself  to  <eeP  track  of  nany  processes  at  many 
levels  of  function  calls.  Such  a  mechanism  could  be  easily  tied  to 
the  existino  "APPLf  team"  facility  of  QilSP. 

VII  CONCl.tiSlONf; 

We  have  qjven  a  brief  overview  of  the  capabilities  and  features 
of  QLTSP.  While  It  is  not  practical  for  use  as  a  production 
lanauaop,  it  is  a  time-savinq  tool  for  use  In  constructing  complex 
systems  that  are  suniect  to  sionlflcant  change  durlnq  the  course  of 
their  d^velooment, 

Vill  ACkNOwfjEDGPMF.*' TS 

The  basic  features  of  OLISP  are  derived  from  the  0A4  language^ 
developed  at  SPJ  by  Jeff  Pulifsonr  Richard  Waldinger,  and  Jan 
Derksen,  The  initial  implementation  of  QLISP  was  done  by  Rene  Reboh 
and  Earl  Sarerdoti.  Subsequent  development  was  Carried  on  by  Daniel 
Saqaio'Aicz  and  ^Ike  Wilber,  Rich  Flkes  developed  the  generator 
pacKaopf  and  was  instrumental  in  straightening  out  the  context 
mechanism.  Mai  Newey  wrote  the  pattern  matcher»  based  on  a  problem 
reduction  alqoritnrr  of  Richard  Waldlnqer,  Richard  Waldinger  has  been 
a  maior  force  In  setting  the  goals  of  the  language  development, 
Warren  Teiteiman  has  provided  much  help  in  generalizing  the  features 
of  IME'RLISP  that  perniit  the  clean  interface  to  QliISP, 
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